#MCES calibration====
a.settings.calib <- data.frame(mu.a=log(c(4,4.05,220,NA,NA)),
                               sigma.a=c(0,0,0,NA,NA),
                               dave=c(0.37,0.35,0.08,NA,NA), #AVE of distance parameter: each increase in abs(n-i) raises dist AVE by dave
                               mu.b0 = c(9,20,160,NA,NA), #  x0 (constant): shifting up lowers outside good share
                               speed =c(0.9,0.9,0.5,NA,NA)) 

b.settings.calib <- data.frame(mu.a=log(c(4,4.05,210,NA,NA)), #note the log
                               sigma.a=c(0,0,0,NA,NA),
                               dave=c(0.41,0.42,0.1,NA,NA), #AVE of distance parameter: each increase in abs(n-i) raises dist AVE by dave
                               mu.b0 = c(9,20,145,NA,NA), #  x0 (constant): shifting up lowers outside good share
                               speed =c(0.9,0.9,0.3,NA,NA)) 
#
c.settings.calib <- b.settings.calib

#MLOG calibration====
a.settings.mlog.calib <- data.frame(mu.a=c(-1.75,-1.85,0,NA,NA),
                                    sigma.a=c(0,0,0,NA,NA),
                                    dave=c(0.55,0.85,0.08,NA,NA), #AVE of distance parameter: each increase in abs(n-i) raises dist AVE by dave
                                    mu.b0 = c(4.4,15.4,46,NA,NA), #  x0 (constant): shifting up lowers outside good share
                                    speed =c(0.9,0.9,0.6,NA,NA)) 
#
b.settings.mlog.calib <- data.frame(mu.a=c(-1.85,-2.05,-0.05,NA,NA),
                                    sigma.a=c(0,0,0,NA,NA),
                                    dave=c(0.71,1.18,0.12,NA,NA), #AVE of distance parameter: each increase in abs(n-i) raises dist AVE by dave
                                    mu.b0 = c(4.4,15.3,44,NA,NA), #  x0 (constant): shifting up lowers outside good share
                                    speed =c(0.9,0.9,0.6,NA,NA)) 
#
c.settings.mlog.calib <- b.settings.mlog.calib
